| *********************************************************** 
| ******************** FredFlintstone *********************** 
| *********************************************************** 
| Pet Buffs.inc Ver 1.1 
| 4/18/05 
| Warning: It takes about 30-45 secs to finish this macro 
| because the pet buffs take forever to pop. 

#include Spell_Routines.inc 

Sub Pet_Buff 

| Put these in the macro your inc this from 
| /declare Pethaste outer "Glyph of Darkness" 
| /declare PetShield outer "Bulwark of Calliav" 
| /declare PetAC outer "Spirit Armor" 
| /declare Shrink outer "Algae Covered Stiletto" 

/if (${Me.Pet.ID}) { 
/if (!${Me.PetBuff[Glyph of Darkness]} || (!${Me.PetBuff[Bulwark of Calliav]})) { 
/call PBuffShieldHaste 
} 
/if (!${Me.PetBuff[Spirit Armor]}) { 
/echo Pet needed AC! 
/target ${Me.Pet} 
/call cast ${PetAC} gem4 5s 
} 
} else { 
/echo You dont have a pet! 
} 
/echo Shrinking pet twice!!! 

/call cast ${Shrink} item 
/delay 10 
/call cast ${Shrink} item 
/echo And im spent! 
/pet taunt off 
/return 

Sub PBuffShieldHaste 

/sit on 
/book 35 
/echo Meming Haste 
/memspell 2 ${Pethaste} 
/memspell 2 ${Pethaste} 
/memspell 2 ${Pethaste} 
/delay 35 
/echo Meming Bulwark 
/memspell 3 ${PetShield} 
/memspell 3 ${PetShield} 
/delay 35 
/echo Waiting... 
/sit off 
/delay 325 
/if (!${Me.PetBuff[Glyph of Darkness]}) { 
/echo Pet needed Haste! 
/call Cast ${Pethaste} gem2 15s 
} 
/if (!${Me.PetBuff[Bulwark of Calliav]}) { 
/echo Pet needed Shield! 
/call Cast ${PetShield} gem3 15s 
} 
/sit off 
/return